home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / alphabet trainer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  52 lines
  1. 1 gosub60100:clr
  2. 5 poke53280,.:poke53281,.
  3. 10 print"[147]    alphabet trainer - r. s. stokan[158]"
  4. 15 print" press the above letter on the keyboard"
  5. 16 print"           (press f1[158] to quit)":w=.
  6. 20 fora=65to90
  7. 30 gosub100:poke198,.
  8. 40 geta$:ifa$=""then40
  9. 42 ifa$="[133]"thengosub60050:poke198,.:goto40
  10. 45 ifa$<>chr$(a)thenw=w+1:poke53280,2:formm=1to10:next:poke53280,.:goto40
  11. 50 nexta
  12. 60 print"":forj=1to12:print:next
  13. 70 printtab(7);:fora=65to90:printchr$(a);:next
  14. 80 print"[154]"
  15. 90 print""
  16. 92 print"         you mis-typed"w"letters."
  17. 94 print"press space to use this program again. "
  18. 96 print"press return to return to loadstar."
  19. 97 a=peek(203):ifa<>60anda<>1then97
  20. 98 ifa=60then5
  21. 99 goto60000
  22. 100 print"":forj=1to12
  23. 110 printtab(20);chr$(a);"[145]"
  24. 120 printtab(20);" ":next
  25. 130 printtab(20);chr$(a)
  26. 140 return
  27. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  28. 60010 ifer<>63thenend
  29. 60020 load"hello connect",8
  30. 60050 print"  [154]are you sure you want to quit? (y[154]/n[154])"
  31. 60060 z=peek(203):ifz<>25andz<>39then60060
  32. 60070 ifz=25then60000
  33. 60080 print"           [158](press f1 [158]to quit)         "
  34. 60090 return
  35. 60100 poke53280,7:poke53281,7
  36. 60110 printchr$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  37. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  38. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  39. 60140 fora=217to242:pokea,peek(a)or128:next
  40. 60150 print"          loadstar presents:"
  41. 60160 print"                               "
  42. 60170 print"           alphabet trainer    [129] "
  43. 60180 print"                               [129] "
  44. 60190 print"           by  r. s. stokan    [129] "
  45. 60200 print"                               [129] "
  46. 60210 print"            copyright 1987     [129] "
  47. 60220 print"                               [129] "
  48. 60230 print"                                "
  49. 60240 print"        press space to continue"
  50. 60250 ifpeek(203)<>60then60250
  51. 60260 return
  52.